home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 301-325 / 325 / farprint / farcom2.asm < prev    next >
Assembly Source File  |  1995-03-14  |  438b  |  38 lines

  1.         SECTION CODE
  2.         XREF    _AddText
  3.  
  4. _LVORawDoFmt    EQU    $FFFFFDF6
  5.  
  6.         XDEF    kput1
  7.  
  8. kput1:        MOVE.B    D0,(A3)+
  9.         RTS
  10.  
  11.         XDEF    _SendText
  12.  
  13. _SendText:    LINK    A5,#-512
  14.         MOVEM.L    D1/A0-A3,-(SP)
  15.  
  16.         MOVEA.L    8(A5),A0
  17.         LEA    12(A5),A1
  18.         LEA    kput1(PC),A2
  19.         LEA    -512(A5),A3
  20.         MOVE.L    4,A6
  21.         JSR    _LVORawDoFmt(A6)
  22.     
  23.         LEA    -512(A5),A0
  24.  
  25.         MOVE.L    A5,-(SP)
  26.         MOVE.L    A0,-(SP)
  27.  
  28.         JSR    _AddText
  29.  
  30.         ADD.W    #4,SP
  31.         MOVE.L    (SP)+,A5
  32.  
  33.         MOVEM.L    (SP)+,D1/A0-A3
  34.         UNLK    A5
  35.         RTS
  36.  
  37.         END
  38.